home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / gnu / gas_251.zip / bin_251 / binutils / testsuite / lib / utils-lib.exp
Text File  |  1994-02-24  |  2KB  |  40 lines
  1. #   Copyright (C) 1988, 1990, 1991, 1992 Free Software Foundation, Inc.
  2.  
  3. # This program is free software; you can redistribute it and/or modify
  4. # it under the terms of the GNU General Public License as published by
  5. # the Free Software Foundation; either version 2 of the License, or
  6. # (at your option) any later version.
  7. # 
  8. # This program is distributed in the hope that it will be useful,
  9. # but WITHOUT ANY WARRANTY; without even the implied warranty of
  10. # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  11. # GNU General Public License for more details.
  12. # 
  13. # You should have received a copy of the GNU General Public License
  14. # along with this program; if not, write to the Free Software
  15. # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
  16.  
  17. # Please email any bugs, comments, and/or additions to this file to:
  18. # bug-dejagnu@prep.ai.mit.edu
  19.  
  20. # This file was written by Rob Savoye. (rob@cygnus.com)
  21.  
  22. proc binutil_version { prog } {
  23.     if {[which $prog] == 0} then {
  24.     perror "$prog can't be run, file not found."
  25.     return ""
  26.     }
  27.     catch "exec $prog --version < /dev/null" tmp
  28.     # Should find a way to discard constant parts, keep whatever's
  29.     # left, so the version string could be almost anything at all...
  30.     regexp "version (cygnus-|)\[-0-9.a-zA-Z-\]+" $tmp version
  31.     if ![info exists version] then {
  32.         return "[which $prog] (no version number)\n"
  33.     }
  34.     set tmp $version
  35.     if [info exists errorInfo] then {
  36.     unset errorInfo
  37.     }
  38.     return "[which $prog] $version\n"
  39. }
  40.